home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8404.arc / SEARCH4.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  512b  |  20 lines
  1. ' 
  2. '$$$$$$$$$$$$$$ 
  3. 'Subroutine 
  4. '$$$$$$$$$$$$$$ 
  5. ' 
  6. '    This is the assembly language binary search subroutine. 
  7. '    Input is the table in which to look up (ITABLE), 
  8. '    the number of entries in the table (NTABLE), and 
  9. '    the number whose index is to be found (JKEY).  
  10. '    Output is the index (INDX) such that  
  11. '    ITABLE(INDX) = JKEY 
  12. ' 
  13. '    ASSEMBLY LANGUAGE BINARY SEARCH 
  14. ' 
  15. 8000 rem Start. 
  16. ' 
  17.      call binsearch (ITABLE(1), NTABLE, JKEY, INDX) 
  18. ' 
  19.      return 
  20.